<html>

<!--   DTD or Date & time info
       Version 1.0  July 29th, 2005
       multiline comments
 -->


<!-- ARCHIVE by GEOCITIES.WS -->
<head>
  <title>GW-BASIC MENULINK FILES</title>
</head>

<!--  the "LessThanBangDashDash" to "DashDashGreaterThan"
      is a nondisplaying comment-->

<a name="top"></a>
<a href="bindex.html">Index</a>
<a href="btoc.html">TOC</a>

<center><h1>Small GW-BASIC MenuLink Files</h1></center>
<center><h4>for the</h4></center>
<center><h1>Four Files of the Apocalypse</h1></center>

<body><script type="text/javascript" src="../js/policy.js"></script>
<center><script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&amp;height=90"></script>
</center>
<!--script type="text/javascript" src="/js/AdBoxDiv.js"></script-->
<script type="text/javascript">
adserver();
window.onload=function(){
html = document.body.innerHTML;

checkPolicy(html);
if ((displayif == 0) && (adstring != null)) {
document.getElementById("footeraddiv").innerHTML = adstring;
}
}
</script>
<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-26341965-1']);
  _gaq.push(['_setDomainName', '.geocities.ws']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>


<script type="text/javascript">
<!--
 H4jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t48193jfrdsswdsq = document.URL;
        H4jewqpdjh6yfound = t48193jfrdsswdsq.search(H4jewqpdjh6y);
	
if(H4jewqpdjh6yfound == -1){
	document.write("<center><ins data-revive-zoneid=\"1\" data-revive-id=\"249a85bd1b1946c71ef2de94958ed350\"><\/ins><script async src=\"\/\/147.135.187.149\/ads\/www\/delivery\/asyncjs.php\"><\/script><\/center><br>");
}
//-->
</script>

<!-- following code added by server. PLEASE REMOVE -->
<!-- preceding code added by server. PLEASE REMOVE -->

<pre>
Note:
The following files are small basic programs that when run, 
call the necessary batch file that the "Four Files of the 
Apocalypse" needs to start.

When the batch files is finished running it goes back to the 
small basic program that starts the desired big Basic 
program up again.

Kind of goofy, but it works great and you can have no end of 
linking applications if you want.

That is why for most of personal home programming the 
segment limit is quite meaningless as a limitation.  You can 
keep calling or merging programs to doomsday.

i couldn't figure out how to do that using QBASIC so that is 
why i prefer GW-BASIC.

It seems that when you end a program in QBASIC you are 
dropped back into the editor whether you want it or not.  

But be forwarned, i am not a programmer so there may be an 
obvious way to keep programs up and running in QBASIC, it is 
just that i never spent the time to figure out how...  

<hr>

1 READ A$,B$,C$,D$,E$,F$:IF A$="-1" THEN END:GOTO1
2 ' SAVE   "FORMFOO.BAS",A
3 ' (i really don't know what this is doing in here,
4 '  but i left it in anyhow.)

<hr>

10 SHELL"PLANTS.BAT
20 RUN"MNU-DBAS
30 '      SAVE"PLANT.BAS",A
40 ' this runs a WordPerfect notebook application of a plant 
50 ' database that my son has/had.

<hr>

10 SHELL"2123
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2123.BAS",A
50 ' this ran 123 v 2.01 for DOS along with HAL.

<hr>

1 COLOR 7,0:CLS:VIEW PRINT:CLS:SYSTEM
2 '              SAVE"LL6-EXIT.BAS",A
3 '  this is an exit program for Landlord VI (six).

<hr>

1 COLOR 7,0:CLS:VIEW PRINT:CLS:SYSTEM
2 '              SAVE"LL9-EXIT.BAS",A
3 '  this is an exit program for landlord 9

<hr>

20 SHELL "BUDGET.BAT"
30 RUN"mnu-wks.bas
40 '         SAVE"QBAS-BUD.BAS",A
50 '  this shells to qbasic in high res and drops you off in 
60 ' the editor 

<hr>

20 SHELL "LL6-WKS.BAT"
30 RUN"mnu-wks.bas
40 '         SAVE"QBAS-LL6.BAS",A

<hr>

20 SHELL "CASHFLOW.BAT"
30 RUN"mnu-wks.bas
40 '         SAVE"QBAS-CFL.BAS",A

<hr>

10 SHELL"LET2c&N
20 CHDIR"\FFA
30 RUN"MNU-vde.BAS
40 '     SAVE"LET2C&N.BAS",A

<hr>

10 SHELL"LET2MOM
20 CHDIR"\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"LET2MOM.BAS",A

<hr>

10 SHELL"LET4BIZ
20 CHDIR"\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"LET4BIZ.BAS",A

<hr>

10 SHELL"2WORD.BAT
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2WORD.BAS",A

<hr>

10 SHELL"LET2FREN
20 CHDIR"\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"LET2FREN.BAS",A

<hr>

10 SHELL"2DBASE.BAT
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2DBASE.BAS",A

<hr>

10 SHELL"2WORKS.BAT
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2WORKS.BAS",A

<hr>

10 SHELL"2XTREE.BAT
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2XTREE.BAS",A

<hr>

10 SHELL"2OFFICE.BAT
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2OFFICE.BAS",A

<hr>

10 SHELL"2W3-BIZL.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-BIZL.BAS",A

<hr>

10 SHELL"2W3-MOML.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-MOML.BAS",A

<hr>

10 SHELL"2W3-RCP.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-RCP.BAS",A

<hr>

10 SHELL"2W3-WKS.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-WKS.BAS",A

<hr>

10 SHELL"2WSTAR5.BAT
20 CHDIR"\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2WSTAR5.BAS",A

<hr>

10 SHELL"2W3-C&NL.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-C&NL.BAS",A

<hr>

10 SHELL"2W3-FRIL.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-FRIL.BAS",A

<hr>

10 SHELL"2W3-XTRE.BAT
20 CHDIR"\FFA
30 RUN"MNU-WKS3.BAS
40 '     SAVE"2W3-XTRE.BAS",A

<hr>

1 SHELL"ll6works.bat"
2 CHDIR"\ffa"
5 RUN"LL6.BAS
8 '           SAVE "LL6works.bas",a

<hr>

1 SHELL"ll9works.bat"
2 CHDIR"\ffa"
5 RUN"LL9.BAS
8 '           SAVE "LL9works.bas",a

<hr>

10 SHELL"2msworks.BAT
20 REM CHDIR" \dos\ffa
30 RUN"mnu-main.BAS
40 '     SAVE"2msworks.bas",a

<hr>

10 SHELL"2VDEBIZL.BAT
15 chdir"\
20 CHDIR"c:\dos\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"2VDEBIZL.BAS",A

<hr>

10 SHELL"2VDEC&NL.BAT
15 chdir"\
20 CHDIR"c:\dos\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"2VDEC&NL.BAS",A

<hr>

10 SHELL"2VDEFRIL.BAT
15 CHDIR"\
20 CHDIR"C:\DOS\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"2VDEFRIL.BAS",A

<hr>

10 SHELL"2VDEMOML.BAT
15 CHDIR"\
20 CHDIR"C:\DOS\FFA
30 RUN"MNU-VDE.BAS
40 '     SAVE"2VDEMOML.BAS",A

<hr>

10 SHELL"2CWORDPA.BAT
15 CHDIR"..
16 CHDIR"..
20 CHDIR"DOS\FFA
30 RUN"MNU-APPS.BAS
40 '     SAVE"2CWORDPA.BAS",A

<hr>

0 'an exit program by fhb 4-29-98
1 VIEW PRINT:CLS:PRINT CHR$(27):COLOR 7,0:CLS:SYSTEM
2 '              SAVE"EXIT.BAS",A
3 ' this is a program that is called by a lot of other
4 ' programs to exit from windowing, clear the screen,
5 ' press the enter key, change the color, and clear the
6 ' screen again, and finally exit basic.

<hr>

1 '     A child program to run eco-stat in \BAS\ECO-STAT directory
2 CHDIR"..\BAS\ECO-STAT
3 RUN"MNU-ECO
6 '     SAVE"ECO-APPS.BAS",A

<hr>

10 CLS
20 FOR I=0 TO 16
30 COLOR I,0
40 PRINT I,
50 NEXT
60 FOR I=0 TO 15
70 COLOR 0,I
80 PRINT I,
90 NEXT
100 '         save"c:\bas\color.bas",a
110 COLOR 7,0

</pre>

</body>

<a href="bbaslink.html#top">TOP</a><br>
<a href="bindex.html">Index</a><br>
<a href="btoc.html">TOC</a>


<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>	
<center>
        <div>
<!--script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script-->
<script type="text/javascript">
	atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
	};
	document.write('<scr' + 'ipt type="text/javascript" src="http' + (location.protocol === 'https:' ? 's' : '') + '://www.bcloudhost.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
</script>
        </div>

</center>
</html>

<!-- text below generated by server. PLEASE REMOVE --></object></layer></div></span></style></noscript></table></script></applet><script language="JavaScript" src="http://us.i1.yimg.com/us.yimg.com/i/mc/mc.js"></script><script language="JavaScript" src="http://us.js2.yimg.com/us.js.yimg.com/lib/smb/js/hosting/cp/js_source/geov2_001.js"></script><script language="javascript">geovisit();</script><noscript><img src="http://visit.geocities.yahoo.com/visit.gif?us1256595194" alt="setstats" border="0" width="1" height="1"></noscript>
<IMG SRC="http://geo.yahoo.com/serv?s=76001084&amp;t=1256595194&amp;f=us-w4" ALT=1 WIDTH=1 HEIGHT=1>
